(ido-file-extension-aux): Fix comparison.

diff --git a/lisp/ido.el b/lisp/ido.el
index d4ed85ea1054196004dd23bad04bd296f80fbc29..ff222b2958ce7355ff6b115c5d2aa803ec0e231c 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3084,12 +3084,14 @@ for first matching file."
   (let ((oa (ido-file-extension-order a n))
        (ob (ido-file-extension-order b n)))
     (cond
-     ((= oa ob)
-      lessp)
      ((and oa ob)
-      (if lessp
-         (> oa ob)
-       (< oa ob)))
+      (cond
+       ((= oa ob)
+       lessp)
+       (lessp
+       (> oa ob))
+       (t
+       (< oa ob))))
      (oa
       (not lessp))
      (ob